(defun delocnp ()
  (setq ocnp_ss (ssget "x" '((-4 . "<OR")(8 . "stalbl")(8 . "*HDBXML")(8 . "*MLTX")(1 . "OPEN CUT AND PATCH")(1 . "*TEMPORARY*")(1 . "*EROSION CONTROL*")(-4 . "OR>"))))
  (IF ocnp_ss
    (PROGN
      (SETQ cnt 0)
      (WHILE (< cnt (SSLENGTH ocnp_ss))
        (ENTDEL (SSNAME ocnp_ss cnt))
        (SETQ cnt (1+ cnt))
      )
    )
  )
  (IF (> cnt 0)
    (PRINC (STRCAT "\n" (ITOA cnt)
		   " \"OPEN CUT & PATCH\" note"
		   (IF (> cnt 1) "s" "")
		   ", \"EROSION CONTROL\" note"
		   (IF (> cnt 1) "s" "")
		   ", match line text and mask"
		   (IF (> cnt 1) "s" "")
		   ", and/or station label"
		   (IF (> cnt 1) "s" "")
		   (IF (> cnt 1)" have" " has")
		   " been deleted! "
           )
	   )
    (PRINC (STRCAT "\nNo \"OPEN CUT & PATCH\" note, \"EROSION CONTROL\" note, match line text and mask, or station label was deleted! "))
  )
  (setq lfof_ss (ssget "x" '((1 . "*# LF OF [CA]*[DR]*"))))
  (IF lfof_ss
    (PROGN
      (SETQ cnt 0
	    mod_cnt 0
      )
      (WHILE (< cnt (SSLENGTH lfof_ss))
        (SETQ this_ocnp (ENTGET (SSNAME lfof_ss cnt)))
	(COND
	  ((WCMATCH (CDR (ASSOC 1 this_ocnp)) "*ASPHALT DRIVE")
           (SETQ this_ocnp (SUBST (CONS 1 "ASPHALT DRIVE")(ASSOC 1 this_ocnp) this_ocnp))
           (IF (ENTMOD this_ocnp)(SETQ mod_cnt (1+ mod_cnt))))
	  ((WCMATCH (CDR (ASSOC 1 this_ocnp)) "*ASPHALT ROAD")
           (SETQ this_ocnp (SUBST (CONS 1 "ASPHALT ROAD")(ASSOC 1 this_ocnp) this_ocnp))
           (IF (ENTMOD this_ocnp)(SETQ mod_cnt (1+ mod_cnt))))
	  ((WCMATCH (CDR (ASSOC 1 this_ocnp)) "*CONC* DRIVE")
           (SETQ this_ocnp (SUBST (CONS 1 "CONCRETE DRIVE")(ASSOC 1 this_ocnp) this_ocnp))
           (IF (ENTMOD this_ocnp)(SETQ mod_cnt (1+ mod_cnt))))
	  ((WCMATCH (CDR (ASSOC 1 this_ocnp)) "*CONCRETE ROAD")
           (SETQ this_ocnp (SUBST (CONS 1 "CONC* ROAD")(ASSOC 1 this_ocnp) this_ocnp))
           (IF (ENTMOD this_ocnp)(SETQ mod_cnt (1+ mod_cnt))))
	)
        (SETQ cnt (1+ cnt))
      )
      (IF (> mod_cnt 0)
	(PRINC (STRCAT "\n" (ITOA mod_cnt) " \"OPEN CUT & PATCH\" note" (IF (> mod_cnt 1) "s have" " has") " been modified! "))
	(PRINC (STRCAT "\nNo \"OPEN CUT & PATCH\" has been modified! "))
      )
      (PRINC)
    )
    (PRINC (STRCAT "\nNo \"OPEN CUT & PATCH\" note was found! "))
  )
  (setq prop_ss (ssget "x" '((1 . "PROPOSED*"))))
  (IF prop_ss
    (PROGN
      (SETQ cnt 0
	    mod_cnt 0
      )
      (WHILE (< cnt (SSLENGTH prop_ss))
        (SETQ this_prop (ENTGET (SSNAME prop_ss cnt)))
	(IF (OR (WCMATCH (CDR (ASSOC 1 this_prop)) "PROPOSED")(WCMATCH (CDR (ASSOC 1 this_prop)) "PROPOSED "))
	  (PROGN
            (ENTDEL (CDR (ASSOC -1 this_prop)))
	    (SET mod_cnt (1+ mod_cnt))
	  )
	  (PROGN
            (SETQ this_prop (SUBST (CONS 1 (SUBSTR (CDR (ASSOC 1 this_prop)) 10))(ASSOC 1 this_prop) this_prop))
            (IF (ENTMOD this_prop)(SETQ mod_cnt (1+ mod_cnt)))
	  )
	)
        (SETQ cnt (1+ cnt))
      )
      (IF (> mod_cnt 0)
	(PRINC (STRCAT "\n" (ITOA mod_cnt) " \"PROPOSED\" note" (IF (> mod_cnt 1) "s have" " has") " been modified! "))
	(PRINC (STRCAT "\nNo \"PROPOSED\" note has been modified! "))
      )
      (PRINC)
    )
    (PRINC (STRCAT "\nNo \"PROPOSED\" note was found! "))
  )
  (PRINC)
)
